home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / STP&RPT.SCR < prev    next >
Text File  |  1986-03-17  |  144b  |  6 lines
  1. INSERT !B (POLAR P1 A1 E) !C  !D
  2. (SETQ P1(GETVAR "LASTPOINT"))
  3. (SETQ A (- A 1))
  4. (IF (> A 1)(SETQ A2 "STP&RPT")(SETQ A2 "END"))
  5. SCRIPT !A2
  6.